home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…tion Library 2 (Reseller)
/
Apple R&P Lib Reseller v2.0.iso
/
3-Demos
/
Third Party Demos
/
Networking
/
MacMainFrame
/
card_7235.txt
< prev
next >
Wrap
Text File
|
1989-07-14
|
3KB
|
145 lines
-- card: 7235 from stack: in
-- bmap block id: 16722
-- flags: 4000
-- background id: 2776
-- name:
----- HyperTalk script -----
on openCard
set lockText of card field 1 to false
delete line 1 of card field 1
wait 45 ticks
show card field id 4
choose browse tool
click at the loc of card field 1
type "demo file"
wait 20 ticks
show card field id 8
hide card field id 4
end openCard
-- part 2 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=469 top=309 right=337 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
set userLevel to 1
hide card field id 4
hide card field id 8
visual effect scroll left
go to card id 12102
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=7 top=308 right=336 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 30557 / 30557
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
delete line 1 of card field 1
set userLevel to 1
hide card field id 4
hide card field id 8
visual effect scroll right
push card
go to card id 9514
show menuBar
end mouseUp
-- part 4 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=121 top=221 right=238 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
set lockText of card field 1 to true
end mouseEnter
-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=191 right=213 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 9120 / 9120
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=322 top=192 right=212 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save
----- HyperTalk script -----
on mouseUp
hide card field id 4
hide card field id 8
go to card id 2362
set userLevel to 1
end mouseUp
-- part 8 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=121 top=221 right=238 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part contents for card part 8
----- text -----
demo file
-- part contents for card part 4
----- text -----
demo file